Dit voorbeeld maakt gebruik van de functie CVErr om een Variant te geven waarvan het VarType gelijk is aan vbError (10) is. De door de gebruiker gedefinieerde functie CalculateDouble
geeft een fout als het ingevoerde argument geen getal is. Met behulp van CVErr kunt u door de gebruiker gedefinieerde fouten als resultaat geven op basis van door de gebruiker gedefinieerde procedures of de afhandeling van een fout tijdens de uitvoering uitstellen. Gebruik de functie IsError om te controleren of de waarde een fout aangeeft.
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function